home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Suzy B Software 2
/
Suzy B Software CD-ROM 2 (1994).iso
/
extras
/
programm
/
gemfsc20
/
gemfsc20.lzh
/
GEMFBIND
/
VQLATTR.S
< prev
next >
Wrap
Text File
|
1993-03-26
|
1KB
|
43 lines
;*========================================================================
;* VDIFAST Public Domain VDI bindings.
;*========================================================================
;*------------------------------------------------------------------------
;* Inquire polyline attributes.
;*------------------------------------------------------------------------
globl _vql_attributes
_vql_attributes:
; .cargs #8,handle.w,attrib.l
handle = 8
attrib = 10
link a6,#-14 ;* Allocate intout[5], ptsout[2].
; VContrl #35
move.w handle(a6),-(sp) ; contrl[6]
clr.l -(sp) ; contrl[5,4]
clr.l -(sp) ; contrl[3,2]
clr.w -(sp) ; contrl[1]
move.w #35,-(sp) ; contrl[0]
pea -14(a6) ;* -> ptsout
pea -10(a6) ;* -> intout
subq.l #8,sp ;* -> ptsin, intin
pea 16(sp) ;* -> contrl
move.l sp,d1
jsr vditrap
move.l attrib(a6),a0 ;* Return values in attrib array...
move.l -10(a6),(a0)+ ;* attr[0]=intout[0],attr[1]=intout[1]
move.w -6(a6),(a0)+ ;* attr[2]=intout[2]
move.w -14(a6),(a0) ;* attr[3]=ptsout[0]
unlk a6
rts
end